(LAP READ_MESSAGE SUBR) 
	(MOVEI 1 (QUOTE "READY:")) 
	(CALL 1 (E PRINTSTR)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(CALL 0 (E READCH)) 
	(MOVEM 1 0 P) 
	(CAMN 1 (SPECIAL CR)) 
	(JRST 0 TAG12) 
	(CAMN 1 (SPECIAL LF)) 
	(JRST 0 TAG12) 
	(CAME 1 (SPECIAL ALTMODE)) 
	(JRST 0 TAG7) 
TAG12 	(JRST 0 TAG1) 
TAG7 	(MOVEI 1 (QUOTE NIL)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG2 	(MOVE 2 -2 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -2 P) 
	(MOVEM 1 0 P) 
	(CALL 0 (E READCH)) 
	(MOVEM 1 -1 P) 
	(CAME 1 (SPECIAL ALTMODE)) 
	(JRST 0 TAG20) 
	(CALL 0 (E READCH)) 
	(MOVEM 1 -1 P) 
	(CAME 1 (SPECIAL ALTMODE)) 
	(JRST 0 TAG20) 
	(MOVE 1 0 P) 
	(JRST 0 TAG14) 
TAG20 	(JRST 0 TAG2) 
TAG14 	(CALL 1 (E TERPRI)) 
	(CALL 1 (E TERPRI)) 
	(SUB P (C 0 0 1 1)) 
	(MOVE 2 -1 P) 
	(MOVEI 1 (QUOTE /")) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E REVERSE)) 
	(MOVEI 2 (QUOTE /")) 
	(CALL 2 (E XCONS)) 
	(SUB P (C 0 0 2 2)) 
	(JCALL 1 (E READLIST)) 
	NIL 

(LAP RESTART SUBR) 
	(MOVEI 1 (QUOTE "
IF THE SYSTEM GOES DOWN,
YOU MAY HAVE TO RETYPE YOUR LAST QUESTION.
WE WILL BE READY TO GO IN A MINUTE.

")) 	(CALL 1 (E PRINTSTR)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(MOVEI 1 (QUOTE T)) 
	(CALL 1 (E WAIT_FOR_MAIL)) 
	(CALL 1 (E *EVAL)) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG10) 
TAG11 	(MOVE 1 0 P) 
	(JRST 0 TAG5) 
TAG13 
TAG10 	(JRST 0 TAG1) 
TAG5 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL